home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
tipi
/
morse.tpi
< prev
next >
Wrap
Text File
|
1993-11-06
|
3KB
|
250 lines
# MORSE.TPI
define dot
"." print$
1000 100 sound
0 300 sound
enddef
define dash
"-" print$
1000 300 sound
0 300 sound
enddef
define pause
0 400 sound
enddef
define ~a
dot dash pause
enddef
define ~.-
"A" print$
enddef
define ~b
dash dot dot dot pause
enddef
define ~-...
"B" print$
enddef
define ~c
dash dot dash dot pause
enddef
define ~-.-.
"C" print$
enddef
define ~d
dash dot dot pause
enddef
define ~-..
"D" print$
enddef
define ~e
dot pause
enddef
define ~.
"E" print$
enddef
define ~f
dot dot dash dot pause
enddef
define ~..-.
"F" print$
enddef
define ~g
dash dash dot pause
enddef
define ~--.
"G" print$
enddef
define ~h
dot dot dot dot pause
enddef
define ~....
"H" print$
enddef
define ~i
dot dot pause
enddef
define ~..
"I" print$
enddef
define ~j
dot dash dash dash pause
enddef
define ~.---
"J" print$
enddef
define ~k
dash dot dash pause
enddef
define ~-.-
"K" print$
enddef
define ~l
dot dash dot dot pause
enddef
define ~.-..
"L" print$
enddef
define ~m
dash dash pause
enddef
define ~--
"M" print$
enddef
define ~n
dash dot pause
enddef
define ~-.
"N" print$
enddef
define ~o
dash dash dash pause
enddef
define ~---
"O" print$
enddef
define ~p
dot dash dash dot pause
enddef
define ~.--.
"P" print$
enddef
define ~q
dash dash dot dash pause
enddef
define ~--.-
"Q" print$
enddef
define ~r
dot dash dot pause
enddef
define ~.-.
"R" print$
enddef
define ~s
dot dot dot pause
enddef
define ~...
"S" print$
enddef
define ~t
dash pause
enddef
define ~-
"T" print$
enddef
define ~u
dot dot dash pause
enddef
define ~..-
"U" print$
enddef
define ~v
dot dot dot dash pause
enddef
define ~...-
"V" print$
enddef
define ~w
dot dash dash pause
enddef
define ~.--
"W" print$
enddef
define ~x
dash dot dot dash pause
enddef
define ~-..-
"X" print$
enddef
define ~y
dash dot dash dash pause
enddef
define ~-.--
"Y" print$
enddef
define ~z
dash dash dot dot pause
enddef
define ~--..
"Z" print$
enddef
define ~
" " print$
enddef
cls
"Enter letters or code separated" print$ cr
"by spaces. Press [ENTER] by itself" print$ cr
"to end." print$
begin
3 0 locate " " print$
3 0 locate get$
dup$ "" =$ if cls bye endif
ucase$
4 0 locate " " print$
5 0 locate " " print$
4 0 locate dup$ print$ cr
begin parse$ len not
"~" swap$ +$ ucase$ eval
" " print$
until
drop$
0
until